#!
sub moonweight
{
	my ($weight) = @_;
	return ($weight/6);
}
print "150 on the earth but",moonweight(150)," on the moon\n";
sub foo
{
    $_=0 foreach @_;
}
my @a=(1,2,3,4);
print "before: @a\n";
foo(@a);
print "after: @a\n";

